home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / DEF / Define / Performance / def-duration next >
Text File  |  1998-10-23  |  1KB  |  48 lines
  1. def-duration instruments&definitions
  2.  
  3. This example shows both def-duration and def-expression. (legato 100 10 0.4) accepts larger than 100% values. This makes it easy to create overlaps without using durations. If you set legato to 120 percent with 5 percent variation then each note generated will overlap the next. Overlaps are important when creating natural sounding pianos and strings.
  4.  
  5. (def-symbol
  6.    piano1 '(a b c d e f g h i j k l m n)
  7.    piano2 (reverse (symbol-of piano1))
  8. )
  9.  
  10. (def-length
  11.    piano1 '((1/16) (1/8t))
  12.    piano2 '((1/16) (1/8t))
  13. )
  14.  
  15. (def-duration
  16.    piano1 '(1/2 1/4 1/8)
  17.    piano2 '(1/4 1/8 1/2)
  18. )
  19.  
  20. (def-tonality
  21.    piano1 (activate-tonality (pentamajor c 4))
  22.    piano2 (activate-tonality (pentamajor c 5))
  23. )
  24.  
  25. (def-zone
  26.    piano1 '(2/1 2/1 1/1 1/1)
  27.    piano2 '(2/1 2/1 1/1 1/1)
  28. )
  29.  
  30. (def-channel
  31.    piano1 1
  32.    piano2 2
  33. )
  34.  
  35. (def-expression
  36.    default ((humanize 0 20 0.4) 
  37.             (velocity 50 0.4) 
  38.             (legato 100 10 0.4)) 
  39. )
  40.  
  41. (def-tempo 120)
  42.  
  43. (midiport :printer)
  44.  
  45. (compile-instrument-p "ccl;output:" "overlaps"
  46.    piano1
  47.    piano2
  48. )